IBM Aptiva Multimedia Exploration CD

home *** CD-ROM | disk | FTP | other *** search

/ IBM Aptiva Multimedia Exploration CD / Aptiva DEMO CD.iso / mmbasics / sysbook.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1993-09-17 | 22.7 KB | 494 lines

System Book System mes New Roman developer developer developer zarre developer buttonUp buttonUp -- ENTER BOOK SCRIPT 4gAnInch -- Links DLL's linkDLL "tbkwin.dll" STRING ScreenFromPage(WORD, ,INT, %PageFromScreen( * VerticalDisplayRes() E HorizontalDisplayRes() OpenDlg( user" MoveWindow( -- setup "System Book" k32767) -- SYSTEM HANDLERS (FORWARDED) 4gVideoFullScreen tbkMCI ("status theVideo mode","") "paused" -- RestoreVideoButton -- PlayVideo 8"c:\toolbook\mmeld\main. x"developer" CloseVideo SizeToPage "0,0" 4gVideoFile 4gVideoFromFrame, gVideoToFrame videoFile startStop ShowVideoButton here" ttwo handlers belong program windowSized across s() + 5 high ) + 5 -3, -22, windowMoved s() + 5 ) + 5 -3, -22, -- SPECIAL AUTHORING key, isShift, isCtrl "The :" && k& "What title Slocation, 8"c:\ .tbk" "c:\plv","*.avs","Select a file..."," ("Enter stop frames (ex. -- 1,900):" \ "Error: You need enter 2 ListObjects -- EditObject -- -- -- TextEditor zyou want "Background" \ theObjectEditor sourcePage sourceObject sourceBook theTextEditor tedit. SizeForVideo x1 + 4785 y1 + 3585 x1,y1,x2,y2 FullScreenVideo -- LOW-LEVEL VIDEO close ","") PauseVideo wait","") OpenVideo , gVideoStyle kstoogeVideo","") "child" tbkMCIchk (" " && && "alias " && && "style ,1,1) "popup" " && && " ,1,1) "overlapped" " && && " ,1,1) SizeWindow 4gVideoSize theVideoPosition , sysMagnification, (640 * ) - 1 (480 * ) - 1 x1 + (9570 * y1 + (7170 * x1,y1,x2,y2 theVideoWindow ","",1,1) " && "",1,1) " && && " " && ,"",1,1) HideVideo state Audio 4gVideoAudio audio on","",1,1) off","",1,1) VideoFrame ","") -- HIGH theOriginalPosition 0,0,21000,21000 ","",1,1) , 0, 0, 640, 480, 1) -- TO CREATE FIELDS FROM TEXT FILES (TEXTFIELDS) TextFields theOriginalSnap & ".txt") theTextFile 1\" & ("Do 6(1) k(2) x"1" theColor GetText( -- loop through each fCount PlaceField -- clean up theFile " && -- skip )-1) ) - 2) theFieldNumber, theTextLine, theTextColor * 4) * 3 / 8) x1,y1 x2,y2 "Arial" "240,25.125,100" -- PRODUCE PAGE/OBJECT LIST ListPages "c:\pagelist. theLastBackground :" && "M d, y" "Date:" && , thePageNumber * Title: " & ' & \ : " && & * Frames:" && & theObjects " (" & & ")" & -- THE THREE STOOGES PlayStooges stoogeNumber wave files waveFile","") currently playing previously opened appropriate theVideoFile "c:\plv\stooge1. " && ,1,1) full screen ","",1,1) ,1,1,640,480,1) ,1,1) erPage SizeForVideo buttonUp author CloseVideo leavePage PauseVideo OpenVideo leaveBook SizeWindow reader PlayVideo keyDown HideVideo ShowVideo Audio rightButtonUp FullScreenVideo RestoreVideoButton ShowVideoButton enterBook TextFields PlaceField TextEditor ListPages ListObjects enterPage PlayStooges VideoFrame GetText enterBook tbkwin.dll ScreenFromPage PageFromScreen VerticalDisplayRes HorizontalDisplayRes tbkdlg.dll OpenDlg MoveWindow System Book sizeToPage seconds gAnInch author CloseVideo SizeToPage reader CloseVideo enterPage videoFile startStop ShowVideoButton gVideoFromFrame gVideoToFrame gVideoFile leavePage CloseVideo videoFile show video here leaveBook CloseVideo keyDown The name of this page is: What is the title of this page? title cancel title isCtrl isShift rightButtonUp c:\toolbook\mmeld\main.tbk developer CloseVideo show video here c:\plv *.avs Select a video file... OpenDlg videoFile Enter the start and stop frames (ex. start,stop -- 1,900): startStop cancel Error: You need to enter 2 items! startStop field TextEditor hotword TextEditor paintObject What do you want to edit? Background Background isCtrl isShift location TextEditor c:\toolbook\mmeld\tedit.tbk sourcePage sourceObject sourceBook theTextEditor theObject SizeForVideo show video here show video here buttonUp hotword show video here QRestoreVideoButton FullScreenVideo gVideoFullScreen CloseVideo close theVideo tbkMCI PauseVideo pause theVideo wait tbkMCI OpenVideo close stoogeVideo tbkMCI child alias theVideo parent style child wait tbkMCIchk popup alias theVideo style popup wait tbkMCIchk overlapped alias theVideo style overlapped wait tbkMCIchk gVideoFile gVideoStyle SizeWindow show video here ScreenFromPage show video here show video here 0bringToFront status theVideo window handle tbkMCIchk MoveWindow theVideoWindow theVideoPosition gVideoSize PlayVideo play theVideo from tbkMCIchk play theVideo from tbkMCIchk gVideoFromFrame gVideoToFrame HideVideo window theVideo state hide wait tbkMCI ShowVideo window theVideo state show wait tbkMCI Audio set theVideo audio all on tbkMCIchk set theVideo audio all off tbkMCIchk gVideoAudio VideoFrame status theVideo position tbkMCI FullScreenVideo PauseVideo HideVideo show video here show video here theOriginalPosition show video here status theVideo window handle tbkMCIchk MoveWindow show video here 0bringToFront Audio PlayVideo theVideoWindow gVideoFromFrame gVideoToFrame gVideoFullScreen gVideoAudio RestoreVideoButton PauseVideo HideVideo show video here 0bringToFront show video here show video here theOriginalPosition SizeWindow Audio PlayVideo gVideoFromFrame gVideoToFrame gVideoFullScreen gVideoAudio ShowVideoButton child CloseVideo OpenVideo SizeWindow show video here PlayVideo Audio gVideoStyle gVideoSize gVideoAudio gVideoFullScreen TextFields What is the text file name? c:\toolbook\mmeld\txt\ Do you want blue (1) or yellow (2) text? GetText PlaceField fCount theText theColor theTextFile theOriginalSnap GetText Error: end of file theText theFile PlaceField Arial 240,25.125,100 60,50,100 gAnInch theTextColor theTextLine theFieldNumber ListPages c:\pagelist.txt ******************** Book: M d, y Date: ******************** ListObjects theLastBackground theFile ListObjects * Title: title videoFile * Video: videoFile * Frames: startStop theObjects thePageNumber theFile PlayStooges close waveFile tbkMCI PauseVideo close stoogeVideo tbkMCI c:\plv\stooge1.avs c:\plv\stooge2.avs c:\plv\stooge3.avs c:\plv\stooge4.avs alias stoogeVideo style popup wait tbkMCIchk status stoogeVideo window handle tbkMCIchk MoveWindow play stoogeVideo from 1 wait tbkMCIchk close stoogeVideo wait tbkMCI theVideoWindow theVideoFile stoogeNumber